home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #3 / Amiga Plus CD - 1997 - No. 03.iso / pd / programmierung / alienbreed3d2_src / cheesesauce / abreed3.lha / SCREENSETUP.s < prev    next >
Text File  |  1995-08-17  |  981b  |  71 lines
  1. ; Format of copperlist:
  2.  
  3. COPSCRNBUFF:
  4.  dc.l 0
  5.  
  6. ;104*80 lots of $1fe0000 initially.
  7.  
  8. ;$106,$c42
  9. ;$80
  10. ;pch: 0
  11. ;$82
  12. ;pcl: 0
  13. ;
  14. ;$88,$0
  15. ;
  16. ;Length= (104*80*4)+16
  17.  
  18. INITCOPPERSCRN:
  19. ; Get Screen memory
  20.  
  21.  move.l #2,d1
  22.  move.l #(104*80*4)+16,d0
  23.  move.l 4.w,a6
  24.  jsr -198(a6)
  25.  move.l d0,COPSCRN1
  26.  
  27.  move.l #2,d1
  28.  move.l #(104*80*4)+16,d0
  29.  move.l 4.w,a6
  30.  jsr -198(a6)
  31.  move.l d0,COPSCRN2
  32.  
  33. ; move.l #1,d1
  34. ; move.l #(104*80*4)+16,d0
  35. ; move.l 4.w,a6
  36. ; jsr -198(a6)
  37. ; move.l d0,COPSCRNBUFF
  38.  
  39.  move.l COPSCRN1,a1
  40.  move.l COPSCRN2,a2
  41.  
  42.  move.w #(104*80)-1,d0
  43.  move.l #$1fe0000,d1
  44. clrcop:
  45.  move.l d1,(a1)+
  46.  move.l d1,(a2)+
  47.  dbra d0,clrcop
  48.  
  49. ; add.l #104*4*80,a1
  50. ; add.l #104*4*80,a2
  51.  move.l #$1060c42,(a1)+
  52.  move.l #$1060c42,(a2)+
  53.  move.w #$80,(a1)+
  54.  move.w #$80,(a2)+
  55.  
  56.  move.l #PanelCop,d0
  57.  swap d0
  58.  move.w d0,(a1)+
  59.  move.w d0,(a2)+
  60.  move.w #$82,(a1)+
  61.  move.w #$82,(a2)+
  62.  swap d0
  63.  move.w d0,(a1)+
  64.  move.w d0,(a2)+
  65.  move.l #$880000,(a1)+
  66.  move.l #$880000,(a2)+
  67.  clr.b BIGsmall
  68.  jsr putinsmallscr
  69.  rts
  70.  
  71.